home *** CD-ROM | disk | FTP | other *** search
/ MusicScapes Professional / MusicScapes Professional (Wayzata Technology)(1381)(1995).bin / elements / clarinet / 00019_Script_19 < prev    next >
Text File  |  1994-11-22  |  437b  |  19 lines

  1. on setSoundLevel x
  2.   global lastSoundLevel
  3.   set the soundlevel to x
  4.   set x1 to x + 1
  5.   set lastSoundLevel1 to lastSoundLevel + 1
  6.   set the checkMark of menuItem lastSoundLevel1 of menu "Volume" to FALSE
  7.   
  8.   set the checkMark of menuItem x1 of menu "Volume" to TRUE
  9.   
  10.   put x into lastSoundLevel
  11.   
  12. --  put x
  13. end setSoundLevel
  14.  
  15. on exitMovie
  16.   global oldSoundLevel
  17.   set the soundLevel to oldSoundLevel
  18. end exitMovie
  19.